﻿Imports extremo
Public Class UsuarioNuevoForm

    Property usuariosForm As UsuariosForm

    Private Sub UsuarioNuevoForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If lblId.Text <> "" Then
            Dim negocio As New UsuarioNegocio
            Dim modelo = negocio.obtener(lblId.Text)
            txtNombre.Text = modelo.nombre
            txtPaterno.Text = modelo.ap_paterno
            txtMaterno.Text = modelo.ap_materno
            txtEdad.Text = modelo.edad
            txtUsuario.Text = modelo.usuario
            txtContraseña.Text = modelo.contraseña
            txtDireccion.Text = modelo.direccion
            txtDistrito.Text = modelo.distrito
            txtTelefono.Text = modelo.telefono
            txtEmail.Text = modelo.email
            txtSexo.Text = modelo.sexo

        End If
    End Sub


    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        Dim negocio As New UsuarioNegocio
        Try
            If lblId.Text <> "" Then
                negocio.actualizar(lblId.Text, Me.txtNombre.Text, Me.txtPaterno.Text, Me.txtMaterno.Text, Me.txtEdad.Text, Me.txtUsuario.Text, Me.txtContraseña.Text, Me.txtDireccion.Text, Me.txtDistrito.Text, Me.txtTelefono.Text, Me.txtEmail.Text, Me.txtSexo.Text)
            Else
                negocio.insertar(Me.txtNombre.Text, Me.txtPaterno.Text, Me.txtMaterno.Text, Me.txtEdad.Text, Me.txtUsuario.Text, Me.txtContraseña.Text, Me.txtDireccion.Text, Me.txtDistrito.Text, Me.txtTelefono.Text, Me.txtEmail.Text, Me.txtSexo.Text)
            End If

            Me.usuariosForm.dgvUsuarios.DataSource = ""

            Me.Close()
        Catch ex As Exception
            'lblMensaje.Text = "Hubo un error al guardar"
        End Try
    End Sub


End Class
